home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / mui / mcc_tipofday / install < prev    next >
Text File  |  1999-11-30  |  7KB  |  137 lines
  1. ;******************************************************************************
  2. ;                                         
  3. ; $VER: 0.40 (23-July-1999)       
  4. ; TipOfTheDay ©1999 by Marcin Orlowski
  5. ; TipOfTheDay Installer by Robert C. Reiswig ©1999 
  6. ;
  7. ; If you wish to use any part of this installer you must ask. May not be 
  8. ; integrated/placed into any other package or any other MUI classes! 
  9. ; You may NOT change this in an way!
  10. ; Changes, suggestions or problems: pph@vgr.com or rob@vapor.com
  11. ;******************************************************************************
  12.  
  13. ;*** System Stuff ***
  14. (set cpu (database "cpu"))
  15. (if (exists "libs:68060.library") (set #cpu 5)) (if (exists "libs:68060.library" (resident)) (set #cpu 5))
  16. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  17. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  18. (if (= cpu 68040) (set #cpu 4)) 
  19.  
  20. (set mui_localdir "") (if (exists "Libs/MUI") (set mui_localdir "Libs/MUI"))
  21. (if (exists "MUI") (set mui_localdir "MUI"))
  22. (foreach mui_localdir "#?.mcc" (set muiclassguess @each-name))
  23. (set howlong (strlen muiclassguess))
  24. (set muiclass (substr muiclassguess 0 (- howlong 4) ))
  25.  
  26. (if (= muiclass "PowerHelp_nlist") (set muiclass "PowerHelp"))
  27. (if (= muiclass "TipOfTheDaystr") (set muiclass "TipOfTheDay"))
  28. (if (= muiclass "tipboard") (set muiclass "TipOfDay"))
  29. (if (= muiclass "tipwindow") (set muiclass "TipOfDay"))
  30. (set vernum1 (getversion (tackon mui_localdir (cat muiclass ".mcc")))) 
  31. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  32. (set muiclassver (cat ver1 "." rev1))
  33. (if (= "0.0" muiclassver) (set muiclassver ""))
  34.  
  35. ;********************************************************************
  36. ; English Strings
  37. ;********************************************************************
  38. (set #about (cat "\n\n\nWelcome to " muiclass " " muiclassver "\nMUI Class\n\nCopyright ©1999 by\n\nMarcin Orlowski\n<carlos@amiga.com.pl>\n") )
  39. (set #whattodo (cat "\n\n\n\n\nThis installer will copy or update the " muiclass " classes in MUI:Libs/MUI if needed."))
  40. (set #nomui (cat "\n\n" muiclass " uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  41.                  "therefore " muiclass " will not work correctly.  You will need to install "
  42.                  "MUI before running " muiclass "."
  43.             )
  44. )
  45. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can. Older installers might fail.")
  46. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  47. (set #newermui (cat "\n" muiclass " needs version 3.8 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find the new MUI on Aminet in util/libs\n\nIt looks like you have: \n\n"))
  48. (set #nompc (cat "\nThe .MCC files for " muiclass " can not be installed to 'mui:libs/mui'"))
  49. (set #byebye (cat "\n" muiclass " Install Complete!\n\n" ))
  50. (set #cpuver (cat "\nWhat version of " muiclass " would you like to be installed?"))
  51. (set #nlclassY " The NList MUI classes was found in MUI:Libs/mui.")
  52. (set #nlclassN " The NList MUI classes were not found in MUI:Libs/mui.")
  53. (set #nlclass #nlclassY)
  54.  
  55. ;********************************************************************************
  56. ;Polish Strings
  57. ;********************************************************************************
  58. (if (= @language "polski")
  59.  (
  60.   (set #test "This is only a test")
  61.  )
  62. )
  63. ;********************************************************************
  64. ; Hello and check formui
  65.  
  66. ;********************************************************************
  67. (message #about)
  68. (welcome) 
  69. (message #whattodo)
  70. (if (< (exists "mui:") 2)  (message #nomui) )
  71.  
  72. ;********************************************************************
  73. ; Check on New installer 
  74. ;********************************************************************
  75. (set InstallerVer 0) (set current_installer "43.3")
  76. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  77. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  78. (if (< InstallerVer current_installer) (message #updateinstaller) )
  79.  
  80. ;********************************************************************
  81. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  82. ;********************************************************************
  83. (if (> #cpu 1) (set guesscpu 1) (set guesscpu 0)) 
  84.  
  85. (if (<> (getassign "mui") "")
  86. (
  87.   (if (> (exists "mui:libs/mui") 0) 
  88.    (
  89.  
  90.     (if (> (exists (tackon mui_localdir (cat muiclass ".mcc.020"))) 0)
  91.       (set whatver (askchoice (choices  "68000" "68020")
  92.                       (prompt #cpuver)
  93.                   (help   #cpuver)
  94.                       (default guesscpu)
  95.                )
  96.       )
  97.     )
  98.  
  99.     (if (exists "mui:libs/mui/NList.mcc") (set guessnl 1) (set #nlclass #nlclassN) )
  100.     ;(if (> (exists (tackon mui_localdir (cat muiclass "_nlist.mcc"))) 0)
  101.     ;  (set whatn   (askchoice (choices  "Normal version" "NList version")
  102.     ;                  (prompt (cat #cpuver #nlclass "\n"))
  103.     ;                  (help   (cat #cpuver #nlclass "\n"))
  104.     ;                  (default guessnl)
  105.     ;               )
  106.     ;  )
  107.     ;)
  108.     (if (= whatn 1) (set nlist "_nlist") (set nlist "")) 
  109.  
  110.     (working #updatingmuic)
  111.     (foreach mui_localdir "#?.mcp"
  112.       (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  113.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  114.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  115.       )
  116.     )
  117.     (foreach mui_localdir "#?.mcc"
  118.        (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  119.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  120.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  121.        )  
  122.     )
  123.    )
  124.    (message (cat #newermui muiver #nompc)) 
  125.   )
  126. )
  127. )
  128.  
  129. ;********************************************************************
  130. ; End Bye 
  131. ;********************************************************************
  132. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  133. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  134. (run (cat "run " #mpath "/multiview MCC_Popph.readme") )
  135. (set @default-dest mui_localdir)
  136. (exit #byebye (quiet))
  137.